home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 05 / 1 / DISK0510.ZIP / SOUNDS < prev    next >
Text File  |  1985-08-08  |  384b  |  18 lines
  1. PROGRAM SOUNDS; {let's see how the TONE procedure works}
  2. VAR
  3.   NOTE     : INTEGER;
  4.   DURATION : INTEGER;
  5.  
  6. BEGIN
  7.   DURATION := 500;
  8.   NOTE := 1;
  9.   TONE(NOTE,DURATION);
  10.   NOTE := 3;
  11.   TONE(NOTE,DURATION);
  12.   NOTE := 5;
  13.   TONE(NOTE,DURATION);
  14.   NOTE := 8;
  15.   TONE(NOTE,DURATION);
  16. END.
  17.  
  18.